home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
016a
/
gofer221.zip
/
RANDOM
< prev
next >
Wrap
Text File
|
1991-11-20
|
317b
|
12 lines
-- Generate a list of random numbers of length n
randoms :: Int -> [Int]
randoms = iterate (\seed-> (77*seed+1) `rem` 1024)
rand100 = sort (take 100 (randoms 1000)) -- a sample distribution
adjs [] = [] -- a list of pairs of adjacent
adjs xs = zip xs (tail xs) -- elements in a list